home *** CD-ROM | disk | FTP | other *** search
- on mouseUp
- cursor(4)
- set doc to new(xtra("printomatic_lite"))
- if not objectp(doc) then
- exit
- end if
- setdocumentname(doc, "PrintOMatic Lite Documentation")
- append(doc, sprite(2), member "illustration", castLib "documentation")
- cursor(-1)
- if word 1 of the text of the member of sprite the clickOn = "print" then
- if dojobsetup(doc) then
- updateStage()
- print(doc)
- end if
- else
- printpreview(doc)
- end if
- set doc to 0
- end
-